home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / glass / glass.lha / GLASS / tmpas / paslib.ht < prev    next >
Encoding:
Text File  |  1990-10-02  |  2.3 KB  |  73 lines
  1. .. file: paslib.ht
  2. ..
  3. .. External declarations for library of tm Pascal code
  4. { ---- start of ${tplfilename} ---- }
  5.  
  6. .if ${index tmgetc $(want_misc)}
  7. procedure tmgetc( var f: text ); external;
  8. .endif
  9. .if ${index tmreadspc $(want_misc)}
  10. procedure tmreadspc( var f: text ); external;
  11. .endif
  12. .if ${index tmneedc $(want_misc)}
  13. function tmneedc( var f, rf: text; needc: char ): boolean; external;
  14. .endif
  15. .if ${index tmreadc $(want_misc)}
  16. function tmreadc( var f, rf: text; var c: char ): boolean; external;
  17. .endif
  18. .if ${index tmwritec $(want_misc)}
  19. procedure tmwritec( var f: text; c: char ); external;
  20. .endif
  21. .if ${index tmreadobrac $(want_misc)}
  22. procedure tmreadobrac( var f: text; var n: integer ); external;
  23. .endif
  24. .if ${index tmreadcbrac $(want_misc)}
  25. function tmreadcbrac( var f, rf:text; n: integer ): boolean; external;
  26. .endif
  27. .if ${index Readinteger $(want_misc)}
  28. function Readinteger( var f, rf: text; var n: integer ): boolean; external;
  29. .endif
  30. .if ${index Writeinteger $(want_misc)}
  31. procedure Writeinteger( var f: text; n: integer ); external;
  32. .endif
  33. .if ${index Cmpinteger $(want_misc)}
  34. function Cmpinteger( a, b: integer ): integer; external;
  35. .endif
  36. .if ${index Rfreinteger $(want_misc)}
  37. procedure Rfreinteger( var i: integer ); external;
  38. .endif
  39. .if ${index Copyinteger $(want_misc)}
  40. function Copyinteger( i: integer ): integer; external;
  41. .endif
  42. .if ${index Readreal $(want_misc)}
  43. function Readreal( var f, rf: text; var r: real ): boolean; external;
  44. .endif
  45. .if ${index Writereal $(want_misc)}
  46. procedure Writereal( var f: text; r: real ); external;
  47. .endif
  48. .if ${index Cmpreal $(want_misc)}
  49. function Cmpreal( a, b: real ): integer; external;
  50. .endif
  51. .if ${index Rfrereal $(want_misc)}
  52. procedure Rfrereal( var i: real ); external;
  53. .endif
  54. .if ${index Copyreal $(want_misc)}
  55. function Copyreal( i: real ): real; external;
  56. .endif
  57. .if ${index Readboolean $(want_misc)}
  58. function Readboolean( var f, rf: text; var b: boolean ): boolean; external;
  59. .endif
  60. .if ${index Writeboolean $(want_misc)}
  61. procedure Writeboolean( var f: text; b: boolean ); external;
  62. .endif
  63. .if ${index Cmpboolean $(want_misc)}
  64. function Cmpboolean( a, b: boolean ): integer; external;
  65. .endif
  66. .if ${index Rfreboolean $(want_misc)}
  67. procedure Rfreboolean( var i: boolean ); external;
  68. .endif
  69. .if ${index Copyboolean $(want_misc)}
  70. function Copyboolean( i: boolean ): boolean; external;
  71. .endif
  72. { ---- end of ${tplfilename} ---- }
  73.